﻿
Partial Class Sistema_InternadosPersonasEditar
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Request.QueryString("idInternado") = Nothing And String.IsNullOrEmpty(hdIdInternado.Value) Then
            Response.Redirect("Internados.aspx")
        End If
        If Page.IsPostBack = False Then
            If Request.QueryString("idInternado") = Nothing Then
                Response.Redirect("Internados.aspx")
            Else
                hdIdInternado.Value = Request.QueryString("idInternado")
            End If
            If Request.QueryString("idInternadoPersona") = Nothing Then
                hdidInternadoPersona.Value = 0
            Else
                hdidInternadoPersona.Value = Request.QueryString("idInternadoPersona")
            End If
            cargarDatos()
        End If
    End Sub

    Private Sub cargarDatos()
        Using bd As New BdHogaresDataContext
            Dim a = (From c In bd.Web_internados
                    Where c.idinternado = hdIdInternado.Value
                    Select c.Institucion, c.Municipio.Municipio, c.Municipio.Departamento.Departamento,
                    c.NombreProfesional, fechaDiligenciamiento = String.Format("{0:d}", c.FechaDiligenciamiento), localizacion = (bd.fn_GetNombreOpcion("Ubicacion", c.Localizacion)),
                    c.CodProyecto, c.Vereda, c.Corregimiento, c.Barrio, c.Comuna, c.Direccion
                    ).FirstOrDefault

            'txtFechaDiligenciamiento.Text = a.fechaDiligenciamiento
            lblDepartamento.Text = a.Departamento
            lblMunicipio.Text = a.Municipio
            lblCodProyecto.Text = a.CodProyecto
            txtInstitucion.Text = a.Institucion

            If hdidInternadoPersona.Value <> 0 Then
                Dim b = (From c In bd.Web_internadosPersonas
                       Where c.idInternadoPersona = hdidInternadoPersona.Value
                       Select c).FirstOrDefault
                With b
                    txtCicloEducativo.Text = .CicloEducativo
                    txtCicloVital.Text = .CicloVital
                    TxtConsecutivo.Text = .consecutivopersona
                    txtNoParticipantes.Text = .NoParticipantes
                    txtObservaciones.Text = .observacionesPersona
                End With

            End If

        End Using
    End Sub

    Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Response.Redirect("InternadosPersonas.aspx?idinternado=" & hdIdInternado.Value)
    End Sub

    Protected Sub btnRegistrar1_Click(sender As Object, e As System.EventArgs) Handles btnRegistrar1.Click
        If hdidInternadoPersona.Value = 0 Then 'guardar nuevo
            Dim a As New Web_internadosPersona
            With a
                .CicloEducativo = txtCicloEducativo.Text
                .CicloVital = txtCicloVital.Text
                .consecutivopersona = TxtConsecutivo.Text
                .NoParticipantes = txtNoParticipantes.Text
                .observacionesPersona = txtObservaciones.Text
                .FechaRegistro = Date.Now()
                .idinternado = hdIdInternado.Value
                Using h As New Helper
                    .idUsuario = h.GetUsuario(Context.User.Identity.Name).IdUsurio
                End Using
            End With
            Using bd As New BdHogaresDataContext
                bd.Web_internadosPersonas.InsertOnSubmit(a)
                bd.SubmitChanges()
                bd.registrarLog(Context.User.Identity.Name, 86, Request.CurrentExecutionFilePath)
            End Using
        Else 'editar
            Using bd As New BdHogaresDataContext
                Dim a = (From c In bd.Web_internadosPersonas
                        Where c.idInternadoPersona = hdidInternadoPersona.Value
                        Select c).FirstOrDefault
                With a
                    .CicloEducativo = txtCicloEducativo.Text
                    .CicloVital = txtCicloVital.Text
                    .consecutivopersona = TxtConsecutivo.Text
                    .NoParticipantes = txtNoParticipantes.Text
                    .observacionesPersona = txtObservaciones.Text
                End With
                bd.SubmitChanges()
                bd.registrarLog(Context.User.Identity.Name, 86, Request.CurrentExecutionFilePath)
            End Using

        End If


        Response.Redirect("InternadosPersonas.aspx?idinternado=" & hdIdInternado.Value)
    End Sub
End Class
